home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos67.d64 / btx cONVERT v1.2 (.txt) < prev    next >
Commodore BASIC  |  1995-08-15  |  4KB  |  181 lines
  1. 0 REM GEOWRITE TEXTKONVERTER
  2. 10 DIM Z$(255),K(23)
  3. 15 GOSUB655
  4. 20 GOSUB610
  5. 25 PRINT" 1 = GEOS-TEXT ERZEUGEN":PRINT
  6. 30 PRINT" 2 = TABELLE AENDERN":PRINT
  7. 35 PRINT" 3 = TABELLE LADEN":PRINT
  8. 40 PRINT" 4 = TABELLE SPEICHERN":PRINT
  9. 41 PRINT" 5 = GEOS 64 AUFRUFEN":PRINT
  10. 42 PRINT" 6 = GEOS 128 AUFRUFEN":PRINT
  11. 43 PRINT" AUF DER DISK MUSS SICH EIN LEERES FILE  MIT DEM NAMEN DUMMY BEFINDEN !":PRINT
  12. 44 W=1:GOTO55
  13. 45 PRINT:PRINT"BITTE WAEHLEN !"
  14. 50 GETW$:W=VAL(W$):IFW<1ORW>6THEN50
  15. 55 GOSUB610
  16. 60 OPEN1,8,15,"I:0":GOSUB635
  17. 65 ON W GOTO80,465,520,565,1000,1100
  18. 70 CLOSE1
  19. 75 GOTO20
  20. 80 AT$="BTX":GOTO100
  21. 85 PRINT" BITTE GEBEN SIE DEN NAMEN DES ZU "
  22. 90 PRINT" KONVERTIERENDEN TEXTES EIN!"
  23. 95 PRINT:INPUTAT$
  24. 100 GOSUB610
  25. 102 AZ=1000:GOTO130
  26. 105 PRINT" WIEVIELE ZEICHEN PRO SEITE (1-4580) ":PRINT
  27. 110 INPUTAZ
  28. 115 IFAZ<1ORAZ>4580THEN100
  29. 120 :
  30. 125 REM
  31. 130 OPEN2,8,2,AT$+",R":GOSUB635
  32. 135 M$="TEXT-DUMMY"
  33. 140 PRINT#1,"S:";M$+"*"
  34. 145 OPEN3,8,3,M$+STR$(SZ+1)+",S,W":GOSUB635
  35. 150 :
  36. 155 REM
  37. 160 FORI=0TO23
  38. 165 PRINT#3,CHR$(K(I));
  39. 170 NEXTI
  40. 175 :
  41. 180 REM
  42. 185 P=0
  43. 190 GET#2,T$:IFT$=""THENT$=CHR$(0)
  44. 195 S=ST AND 64:T=ASC(T$)
  45. 200 IFT<161ORT>170THEN255
  46. 205 T1=T:T=69
  47. 210 IFT1=161THENT1=79:GOTO250
  48. 215 IFT1=165THENT1=65:GOTO250
  49. 220 IFT1=166THENT1=85:GOTO250
  50. 230 IFT1=168THENT1=207:GOTO250
  51. 235 IFT1=169THENT1=193:GOTO250
  52. 240 IFT1=170THENT1=170:GOTO250
  53. 245 IFT1=167THENT1=83:T=T1
  54. 250 PRINT#3,Z$(T1);
  55. 255 PRINT#3,Z$(T);
  56. 260 IFSTHEN270
  57. 265 P=P+1:IFP<AZTHEN190
  58. 270 PRINT#3,CHR$(0)
  59. 275 CLOSE3
  60. 280 X$=M$+STR$(SZ+1):GOSUB365
  61. 285 E$=C$:F$=D$
  62. 290 X$="DUMMY":GOSUB365
  63. 295 OPEN5,8,5,"#":GOSUB635
  64. 300 PRINT#1,"U1";5;0;ASC(C$);ASC(D$)
  65. 305 PRINT#1,"B-P";5;SZ*2+2
  66. 310 PRINT#5,E$;F$;
  67. 315 PRINT#1,"U2";5;0;ASC(C$);ASC(D$)
  68. 320 CLOSE5
  69. 325 SZ=SZ+1
  70. 330 GOSUB610
  71. 335 PRINT "ANZAHL SEITEN: ";SZ
  72. 340 IFSZ=63ANDS=0THENPRINT:PRINT" TEXT ZU LANG !":GOTO350
  73. 345 IFS=0THEN145
  74. 350 PRINT#1,"S:";M$;"*"
  75. 355 CLOSE2:LOAD"RBOOT",8,1
  76. 360 LOAD"RBOOT",9,1
  77. 365 REM
  78. 370 OPEN4,8,4,"#":GOSUB635
  79. 375 A$=CHR$(18):B$=CHR$(1)
  80. 380 A=ASC(A$):B=ASC(B$)
  81. 385 PRINT#1,"U1";4;0;A;B
  82. 390 GET#4,A$,B$
  83. 395 FORI=0TO7
  84. 400 K=0
  85. 405 PRINT#1,"B-P";4;I*32+3
  86. 410 GET#4,C$,D$
  87. 415 IFD$=""THEND$=CHR$(0)
  88. 420 FORJ=1TOLEN(X$)
  89. 425 GET#4,W$
  90. 430 IFW$=MID$(X$,J,1)THENK=K+1
  91. 435 NEXTJ
  92. 440 IFK=LEN(X$)THEN450
  93. 445 NEXTI:GOSUB635:GOTO380
  94. 450 CLOSE4
  95. 455 RETURN
  96. 460 :
  97. 465 REM
  98. 470 INPUT" QUELLCODE-NUMMER      ";Q
  99. 475 IFQ<0ORQ>255THEN470
  100. 480 PRINT:PRINT" ZUGEORDNETER GEOS-CODE:";ASC(Z$(Q))
  101. 485 NC=ASC(Z$(Q))
  102. 490 PRINT:PRINT" NEUES GEOS-CODE:":PRINT
  103. 495 INPUT" (RETURN=UEBERNEHMEN, 0=ENDE)";NC
  104. 500 IFNC<1ORNC>255THEN510
  105. 505 Z$(Q)=CHR$(NC):GOSUB610:GOTO465
  106. 510 RETURN
  107. 515 :
  108. 520 REM
  109. 525 INPUT"NAME DERTABELLE";NT$
  110. 530 OPEN2,8,2,NT$+",S,R":GOSUB635
  111. 535 FORI=0TO255
  112. 540 GET#2,Z$(I)
  113. 545 NEXTI
  114. 550 CLOSE2
  115. 555 RETURN
  116. 560 :
  117. 565 REM
  118. 570 INPUT"NAMEN FUER DIE NEUE TABELLE";NT$
  119. 575 OPEN2,8,2,NT$+",S,W":GOSUB635
  120. 580 FORI=0TO255
  121. 585 PRINT#2,Z$(I);
  122. 590 NEXTI
  123. 595 CLOSE2
  124. 600 RETURN
  125. 605 :
  126. 610 PRINTCHR$(147)
  127. 615 PRINTTAB(9);"*** BTX-KONVERTER ***"
  128. 620 PRINT:PRINT
  129. 625 RETURN
  130. 630 :
  131. 635 INPUT#1,F,FT$,FT,FS
  132. 640 IFF<>0THENPRINT:PRINT" ";FT$:STOP
  133. 645 RETURN
  134. 650 :
  135. 655 RESTORE
  136. 660 FORI=0TO255
  137. 665 READZ:Z$(I)=CHR$(Z)
  138. 670 NEXTI
  139. 675 READZ:IFZ=-1THEN685
  140. 680 PRINT:PRINT "FEHLER IN DATAS":STOP
  141. 685 FORJ=OTO23
  142. 690 READK(J)
  143. 695 NEXTJ
  144. 700 RETURN
  145. 710 REM DEKODIERTABELLE
  146. 715 DATA32,32,32,32,32,32,32,32,32,32
  147. 720 DATA32,32,32,13,32,32,32,32,32,32
  148. 725 DATA32,32,32,32,32,32,32,32,32,32
  149. 730 DATA32,32,32,33,34,35,36,37,38,39
  150. 735 DATA40,41,42,43,44,45,46,47,48,49
  151. 740 DATA50,51,52,53,54,55,56,57,58,59
  152. 745 DATA60,61,62,63,64,97,98,99,100,101
  153. 750 DATA102,103,104,105,106,107,108,109,110,111
  154. 755 DATA112,113,114,115,116,117,118,119,120,121
  155. 760 DATA122,91,92,93,94,13,96,65,66,67
  156. 765 DATA68,69,70,71,72,73,74,75,76,77
  157. 770 DATA78,79,80,81,82,83,84,85,86,87
  158. 775 DATA88,89,90,123,124,125,126,127,32,32
  159. 780 DATA32,32,32,32,32,32,32,32,32,32
  160. 785 DATA32,32,32,32,32,32,32,32,32,32
  161. 790 DATA32,32,32,32,32,32,32,32,32,32
  162. 795 DATA32,32,32,32,32,32,32,32,32,32
  163. 800 DATA32,32,32,32,32,32,32,32,32,32
  164. 805 DATA32,32,32,32,32, 32, 32,123,124,125
  165. 810 DATA126,32,32,65,66,67,68,69,70,71
  166. 815 DATA72,73,74,75,76,77,78,79,80,81
  167. 820 DATA82,83,84,85,86,87,88,89,90,123
  168. 825 DATA124,125,126,127,32,32,32,32,32,32
  169. 830 DATA32,32,32,32,32,32,32,32,32,32
  170. 835 DATA32,32,32,32,32,32,32,32,32,32
  171. 840 DATA32,91,92,93,126,32,-1
  172. 845 :
  173. 850 REM
  174. 855 DATA24,0,48,1,64,0,144,0,224,0
  175. 860 DATA48,1,48,1,48,1,48,1,48,1
  176. 865 DATA23,9,0,0
  177. 1000 LOAD"RBOOT",8,1
  178. 1010 LOAD"RBOOT",9,1
  179. 1100 BOOT"128 RBOOT",U8
  180. 1110 BOOT"128 RBOOT",U9
  181.